home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / nvlexp / map_drv.frm < prev    next >
Text File  |  1995-12-05  |  4KB  |  142 lines
  1. VERSION 2.00
  2. Begin Form Map_Drv 
  3.    Caption         =   "Map Drives"
  4.    ClientHeight    =   4335
  5.    ClientLeft      =   105
  6.    ClientTop       =   390
  7.    ClientWidth     =   8235
  8.    Height          =   4740
  9.    Left            =   45
  10.    LinkMode        =   1  'Source
  11.    LinkTopic       =   "Form1"
  12.    ScaleHeight     =   4335
  13.    ScaleWidth      =   8235
  14.    Top             =   45
  15.    Width           =   8355
  16.    Begin TextBox Hidden2 
  17.       Height          =   285
  18.       Left            =   6960
  19.       TabIndex        =   4
  20.       Text            =   "Hidden2"
  21.       Top             =   3750
  22.       Visible         =   0   'False
  23.       Width           =   885
  24.    End
  25.    Begin CommandButton Command2 
  26.       Caption         =   "Quit"
  27.       Height          =   495
  28.       Left            =   3300
  29.       TabIndex        =   2
  30.       Top             =   3690
  31.       Width           =   915
  32.    End
  33.    Begin CommandButton Command1 
  34.       Caption         =   "Map Un-mapped Drive"
  35.       Height          =   495
  36.       Left            =   270
  37.       TabIndex        =   1
  38.       Top             =   3690
  39.       Width           =   2145
  40.    End
  41.    Begin TextBox Hidden1 
  42.       Height          =   285
  43.       Left            =   6960
  44.       TabIndex        =   3
  45.       Text            =   "Hidden1"
  46.       Top             =   3480
  47.       Visible         =   0   'False
  48.       Width           =   885
  49.    End
  50.    Begin ListBox List1 
  51.       FontBold        =   -1  'True
  52.       FontItalic      =   0   'False
  53.       FontName        =   "Courier"
  54.       FontSize        =   9.75
  55.       FontStrikethru  =   0   'False
  56.       FontUnderline   =   0   'False
  57.       Height          =   2955
  58.       Left            =   270
  59.       TabIndex        =   0
  60.       Top             =   480
  61.       Width           =   7575
  62.    End
  63. End
  64. DefInt A-Z
  65.  
  66. Sub Command1_Click ()
  67. '   Map un-mapped drives
  68.     PathFrm.Show 1
  69.     If Abort% = False Then          'go ahead & do it
  70.         DLetter$ = Hidden1.Text
  71.         DPath$ = Hidden2.Text
  72.         CServer$ = MainForm.Text1.Text
  73.         MDrive DLetter$, DPath$, CServer$
  74.         ClearListBox List1
  75.         FillForm
  76.     End If
  77. End Sub
  78.  
  79. Sub Command2_Click ()
  80.     Unload Map_Drv
  81. End Sub
  82.  
  83. Sub FillForm ()
  84.     
  85. '   ===================================================================
  86. '   Note: This sub depends upon having a global array called ArrayUnMap
  87. '   ===================================================================
  88.     
  89.     ReDim ArrayLocal(26) As Integer
  90.     ReDim ArrayHandle(26) As Integer
  91.     ReDim ArrayConnect(26) As Integer
  92.     ReDim ArrayUnMap$(26)   ' ArrayUnMap$() is Global
  93.  
  94.     For i% = 0 To 25
  95.         Res% = GetDriveInformation(i%, ConnectionID%, DirectoryHandle%)
  96.         If Res% = 128 Then
  97.             ArrayLocal(i%) = True
  98.         Else
  99.             ArrayLocal(i%) = False
  100.         End If
  101.         ArrayHandle(i%) = DirectoryHandle%
  102.         ArrayConnect(i%) = ConnectionID%
  103.     Next i%
  104.  
  105.     j% = 1
  106.     For i% = 0 To 25
  107.         Tmp0$ = Chr$(65 + i%) + ":   "
  108.         If ArrayLocal(i%) = True Then
  109.             Tmp1$ = "Local Drive:     "
  110.         Else
  111.             Tmp1$ = "Network Drive: "
  112.         End If
  113.  
  114.         If ArrayConnect(i%) = 0 And ArrayLocal(i%) <> True Then
  115.             ArrayUnMap$(j%) = Tmp0$
  116.             j% = j% + 1
  117.             Tmp2$ = "-- no mapping --"
  118.             Tmp3$ = ""
  119.         ElseIf ArrayLocal(i%) = True Then
  120.             Tmp2$ = "N/A"
  121.             Tmp3$ = ""
  122.         Else
  123.             Tmp2$ = Space$(255)
  124.             Ret% = GetDirectoryPath(ArrayHandle(i%), Tmp2$)
  125.             
  126.             FSN$ = Space$(48)
  127.             GetFileServerName ArrayConnect(i%), FSN$
  128.             Tmp3$ = AllTrim(FSN$) + ": "
  129.         End If
  130.  
  131.         TmpStr$ = Tmp0$ + Tmp1$ + Space$(3) + Tmp3$ + Tmp2$
  132.  
  133.         Map_Drv.List1.AddItem TmpStr$
  134.     Next i%
  135.  
  136. End Sub
  137.  
  138. Sub Form_Load ()
  139.     FillForm
  140. End Sub
  141.  
  142.